home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / SelBoxResTest.z / SelBoxResTest
Encoding:
Text File  |  2003-11-18  |  2.7 KB  |  86 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # SelBoxResTest
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script verifies that the selection box properly
  37. # interprets the 'childPlacement' resource.  Using a timer, it will
  38. # set the resource to a particular value, verify it is correct, and
  39. # then repeat for the next setting.
  40. #
  41.  
  42. Timeout3()
  43. {
  44.    XtGetValues $SB childPlacement:CP
  45.    echo ChildPlacement 
  46.    echo "   Expected = PLACE_TOP"
  47.    echo "   Actual   = " $CP
  48. }
  49.  
  50. Timeout2()
  51. {
  52.    XtGetValues $SB childPlacement:CP
  53.    echo ChildPlacement 
  54.    echo "   Expected = PLACE_BELOW_SELECTION"
  55.    echo "   Actual   = " $CP
  56.    XtSetValues $SB childPlacement:PLACE_TOP
  57.    XtAddTimeOut ID 5000 "Timeout3"
  58. }
  59.  
  60. Timeout1()
  61. {
  62.    XtGetValues $SB childPlacement:CP
  63.    echo ChildPlacement 
  64.    echo "   Expected = PLACE_ABOVE_SELECTION"
  65.    echo "   Actual   = " $CP
  66.    XtSetValues $SB childPlacement:PLACE_BELOW_SELECTION
  67.    XtAddTimeOut ID 5000 "Timeout2"
  68. }
  69.  
  70.  
  71. ######################### Create the Main UI #################################
  72.  
  73. XtInitialize TOPLEVEL selectionBoxTest SelectionBoxTest "$0" "$@"
  74.  
  75. XtCreateManagedWidget SB sb XmSelectionBox $TOPLEVEL \
  76.     childPlacement:PLACE_ABOVE_SELECTION
  77.  
  78. XtCreateManagedWidget SCALE scale XmScale $SB \
  79.     orientation:HORIZONTAL
  80.  
  81. XtRealizeWidget $TOPLEVEL
  82.  
  83. XtAddTimeOut ID 5000 "Timeout1"
  84.  
  85. XtMainLoop
  86.